Spring 1990 Volume 3 No 2

THE LABORER, YES

by Floyd Hoke-Miller

You ask me why I praise his kind

And why I seek to rouse his mind

To thoughts beyond his daily

task,

Wherein the chains that daily bind

Are shrouded lies to keep him blind--

And those are the things you

ask

About the man the Gods don't

bless,

The Laborer, Yes!

I'll tell you why I take this stand

To praise the one with hardened hand;

With daily drudge and sweaty

smell,

He's the greatest one in all the land

But yet, the least one in command

Of all the goods the traders

sell

And take the more and give the

less

The Laborer, Yes!

FLOYD HOKE-MILLER (1898-1990)

Floyd Hoke-Miller, who contributed regularly to the Amateur Computerist from its first issue, will make no new contributions. On April 29, 1990, at age 91, he died.

Table of Contents

THE LABORER, YES	1

FLOYD HOKE-MILLER (1898-1990)	1

The Picket	2

THE SOWER OF THE SEEDS	2

COMPUTER EDUCATION	3

Letter from Superintendent	4

OPEN LETTER TO SUPERINTENDENT	4

Letter to Governor	5

COMMODORE COUNTY U.S.A.	8

C64 Music Digitizer	8

IBM Label Program	9

COCO CORNER	12

Bulletin Board Numbers	13

Floyd was very excited by the Amateur Computerist. He had for many years predicted that the next revo
lution of importance for the whole of human society would be the cybernetic revolution, the successful marriage of workers, computers and the machin
ery of production. Floyd said such a revolution would make possible the shortening of the required work time for each worker. Floyd was a loyal contributor to every issue of the Amateur Computerist because he saw it as the harbinger of the fight of workers for their share of the tech
nological kitty that computers make possible. He also was convinced that only those true to the appreciation of the crucial role of the "amateur" could make any important contribution to the advance of this technology.

Floyd's funeral was held on May 2, 1990. A number of his Pioneer friends could not attend because of their own ill health. But to its shame, the Union for which he fought so long and so hard sent not one representative, not from the UAW International, not from Region 1C, not even from his own Local 659. It is a sad comment on the state of today's UAW.

The following eulogy was read at the service before the funeral:

Floyd's friend and fellow sit-down pioneer Ken Malone said that each century produces only one or two truly great men. And that Floyd was one such rare person. Floyd, our dear Floyd Hoke-Miller, personified the best, the truest representation of working people. People he called respectfully the Common Man. Because of his principled and prodigious contribution, Floyd ranks in stature and resolute purpose with Thomas Paine and Eugene V. Debs.

Floyd was prolific with his help, his advice, his poetry, and his insightful commentary. Yet he is as unknown as the least of us.

He didn't seek fame. He certainly didn't expect it. But he surely, richly deserved it. And he did what for other classes would have brought fame.

He saw more deeply, understood more clearly the conditions of the Common Man and Woman and the other
wise unsung greatness of the Common People. And so he sang out with his wonderful poetry for these people.

Floyd gave direction and purpose to those fighting for a better world for the working class.

Sad we are that he died last Sunday. But we who knew and worked with Floyd are grateful for his long and productive life. And the cause of the working class is infinitely bett
er because of it. It will be harder without him. But he leaves as foot
prints a vast gift of poems and arti
cles and stories. Now others must pick up the pieces and carry on the work and legacy of Floyd Hoke-Miller, the Common Man's most uncommon cham
pion and treasure.

Floyd, we will miss you. But we won't let you down.

The eulogy was followed by the reading of Floyd's poem, "The La
borer, Yes". Floyd particularly fa
vored this poem lately because he saw the labor movement turning away from the laborer and toward the disaster of "partnership" or "jointness".

Besides contributing to the Ama
teur Computerist, Floyd Hoke-Miller was a long time member and best friend of UAW Local 659. His fondest wish would be that his Local and its newspaper, The Searchlight, could be brought back into the struggle for the Shorter Work Day.

Finally, if for any one thing, Floyd would want it said, he fought to the end for Shorter Hours of work for the Common Man and Woman.

Jay Hauben, 5/4/90

The Picket

by Floyd Hoke-Miller

I am the guy with nerve and guts;

The soldier of all your labor fights My road through battle has many ruts But never too rough to guard your

rights.

Through rain and snow, along I tried, To show my protest of oppression;

To win more money for meat and bread Or gain some other fair concession.

I've lost my blood that you might

share

In shorter hours and higher wages--
The biggest burden of labor, I bear Is breaking the shackles of the ages.

IN HONOR OF LABOR'S POET LAUREATE:

THE SOWER OF THE SEEDS

I

How does one write a poem

To commemorate a life

When the dead man was the poet

Who sang of labor's strife?

II

How does one mourn the death

Of one who was the prince of song? Floyd I want to ask you for a poem As Kenny Malone has so often done.

III

You honored Bert Boone when he passed on,

Saying "au revoir but I won't

forget."

And for George Carroll, the lament

"The world is now the loser

For much you rendered here

To free the sweating worker

From want and war and fear"

IV

For Ashley Pennegar you wrote

"We that know you bow our head"

And for Jimmy Kiger you said:

"Your footprints will point ahead"

V

For Pop Hill and Howard Foster,

Jack Palmer and Steve Hodges too

You wrote the epitaph

That bid to them adieu.

VI

And for Tom Kelley, Kermit Johnson,

his father Carl,

Fay McKnight and Ernest Le Vior

You penned the words that said

The wage slave's battle is not o'er

VII

Though they had fallen from the ranks You wrote of their passing

"To the fallen warrior,

A thousand thanks."

VIII

"The world is now the richer"

Your poetry proclaimed

For the deeds the warriors had done Though they may go unnoticed or

unsung.

IX

But Floyd when you have passed it's

different

Your voice has filled the air.

With the deeds and dreams of workers With the voice we so rarely hear. X

You have captured in your poetry

Labor's often hidden plight

And your songs record the wisdom

From this never ending fight.

XI

"The boss is not your buddy"

Your poetry proclaims

To those who gave no quarter to the

enemy

Your poems declare immortal fame.

XII

You warned me to keep in mind

The seeds that one must sow

Only seeds will bring the harvest From little acorns the mighty oak

will grow.

XIII

You stressed that it is in the Spring Wherein true hope resides,

Though autumn may bring the harvest After that the leaves will die.

XIV

So when I said good bye on May Day With your body lain in State

I said thank you for a life

The working class will celebrate

XV

For May Day is the Day

For the working class warrior to rest In honor of our class tradition

On this day you passed on your

bequest

XVI

So Floyd it wouldn't do to grieve

For the sower of the seed

In spring there is a legacy

For us to study and to heed.

XVII

The words of Oscar Ameringer and Joe

Hill

You taught us to keep in mind

That the worst scab is the union scab And "don't mourn, organize!"

XVIII

You held so high the torch of '37 While it was in your hand

So now it passes proudly

And on the spirit of '37 we shall

stand.

With the greatest respect and admira
tion.

Ronda Hauben

COMPUTER EDUCATION AND

GOVERNMENT REGULATION

The Amateur Computerist newsletter was started because of the problems that workers at the Ford Rouge Plant had trying to have computer program
ming education. State, federal, and contractual funds were available to pay for the computer education, but the classes were discontinued and the money diverted to other illegitimate sources now acknowledged by the school officials to have been unlaw
ful, and by the Prosecutor of Wayne County and the Attorney General of Michigan to be unconstitutional.(See vol 2, no 4)

Throughout the publication of the Amateur Computerist, there has been an effort to continue to sort out what the problem was that prevented this public and contractual funding from providing the kind of technical education it was intended for.

For the past few years, there has been a loud public relations campaign claiming that there is federal, state, company and union support for needed worker education. Yet all this hoopla has proven to be a smoke screen for the misuse of public edu
cation funds since there are no man
datory penalties for the misuse of these funds.

Just like the deregulation of the airlines and the banks, so the cur
rent efforts to loosen even more the laws requiring accountability of public education funds can only re
sult in a disastrous fiasco.

Currently, in the upcoming Con
gressional and State elections in Michigan, there are a myriad of pro
posals claiming to improve the schools and to make more public funds available for education.

But what has become evident is that the regulations regarding the spending of public education moneys are so lax, that the money is easy prey for unscrupulous misuse by ei
ther public officials, union or com
pany officials, or whoever has the political clout to receive the funds.

Thus the legislature has passed delusive laws that allow for the plentiful spending of public educa
tion funds, but provide only weak mechanisms of oversight regarding the actual use of the funds, or of recov
ery when the funds are misused. In fact, public officials who misuse the funds are rewarded rather than penal
ized, thus ensuring that the funds can only be misused.

Consequently, until there are much stronger laws governing the misuse and penalty for that misuse of public education funds, any effort to in
crease the funds available only add more wine to a pitcher with a hole in the bottom.

Thus the problems experienced in continuing computer education classes at the Ford Rouge Plant had to do with state legislators and federal congressmen who were willing to pass delusive laws which in fact make legitimate computer education impos
sible. And instead of tightening the current regulations and making harsh
er penalties for those who violate them, current state legislators and U. S. Congressmen are obediently following the siren's call of big corporations to deregulate public education funds. The development of the computer requires increased and tightened regulations, not deregula
tion of education funding. Without strong and vigorously enforced public laws guarding the misuse of public education funds, fraud and abuse make impossible the kind of computer pro
gramming classes originally offered at the Dearborn Engine Plant. Deregu
lation of public education, whether it is called the Job Training Part
nership Act, at the federal level, or credit card adult education at the state level, can only result in fraudulent use of public education funds and the constant deterioration of public education.

Letter from Superintendent

May 3, 1990

Dear Ms. Hauben

This responds to your letter dated March 1, 1990. It is reasonably obvi
ous given our many responses to you and your husband, that much time and effort has been devoted to the many charges and concerns regarding the Dearborn Public Schools and their educational program with the Ford Motor Company. Compilation of this data has necessitated numerous hours on the part of staff of the Legisla
ture, the Department of Education and Office of the Attorney General. You have participated in several meetings and have been informed of the conclu
sions that were reached. A number of issues you raised have been addressed and appropriate corrective actions have been taken. Some of the remain
ing issues are outside of the purview of the Department of Education.

You have made very serious allega
tions against numerous public offi
cials, including staff of their De
partment. I, for one, stand by the actions and recommendations of my staff, who are highly regarded pro
fessionals with extensive experience in overseeing very complex programs.

As you previous have been informed on several occasions, your appeals within the Department have been ex
hausted. My conclusion is that the statutes and regulations surrounding the program have been met. Therefore, further action will not be taken by the Michigan Department of Education.

Sincerely,

Donald L. Bemis

OPEN LETTER TO SUPERINTENDENT BEMIS

Your response to my letter of March 1, 1990 shows that there is an official coverup going on of the illegal use of public funds in adult education and worker education pro
grams like the one at the Ford Rouge Complex in Dearborn Michigan. It is further clear that until the public is informed of the illegal activities involved in these situations, no way can be found to correct the situa
tion.

Your response of May 1, 1990 is only a continuation of the coverup:

1)Your letter mentions many "re
sponses", "time and effort" spent regarding the illegal expenditure of funds, yet I have received only this May 1, 1990 response from you and have no evidence of any time nor effort spent by your department on this issue. The normal procedure the department previously followed, of assigning a complaint to a member of the department, interviewing the complainant and then issuing a formal report listing each of the allega
tions and the conclusions of the investigation regarding the allega
tions, has never been followed by the department. Instead I have only re
ceived this evasive letter denying that there is a problem.

2) You mention meetings I have attended and that I have been in
formed of your conclusions at those meetings. Yet there has been only 1 meeting with you, and one with some
one else on your staff, and the only conclusion I have been informed of is that there is no problem, that your view is that the program is "wonder
ful" and that there was "nothing to investigate."

3) Your letter states that the remaining issues are outside the purview of the Department of Educa
tion, yet you do not say what the remaining issues are, nor who has authority to deal with them.

4) Your letter states that you will stand by officials of your de
partment. Does that mean that there is illegal activity that you know they have been involved in and that you have agreed to cover up? Other
wise why would you need to stand by them rather than having a thorough investigation into what has happened to prevent the illegal expenditures of public education funds from being frankly admitted and rectification provided.

5) Your letter states that stat
utes and regulations have been met. What statutes and regulations are you referring to? Why is there no state
ment of what these statutes and regu
lations are, despite the fact that they were specifically referred to in the complaint filed with the Depart
ment of Education.

6) There is now an effort by the Governor and some representatives in the State Legislature to get rid of the State Board of Education. Yet it seems from the current coverup by the State Department of Education that the problem is not that the State Board has too much power, but that in fact the laws are too weak regarding recovery and punishment of illegal use of public education funds and that the State Board of Education needs additional laws to provide them with the ability to oversee the State Department of Education. The current laws give only the Governor the right to deal with this problem, despite the fact that the State Board of Education, according to the State Constitution, is supposed to be in charge of oversight of public educa
tion and adult education in the State of Michigan.

Thus I have written the attached letter to Governor Blanchard regard
ing the misuse of public funds as the power to oversee the misuse of public funds resides in his office. But the necessary investigation into the coverup of the illegal expenditure of funds at the Ford Rouge Complex is still needed to be able to find how to stop the diversion of education funds from the K-12 program into the hands of private companies and other illegal uses.

Sincerely,

Ronda Hauben

Letter to Governor

June 23, 1990

Dear Governor Blanchard,

In September 1984, I was hired as a teacher of computer programming classes intended for hourly workers at the Ford Rouge Plant. I worked at the Dearborn Engine Plant for 2-1/2 years. But the illegal use of public and federal funds and the documented violations of state and federal regu
lations governing these funds made such classes impossible and resulted in the cancellation of these computer classes.

State and federal education funds have been used and are still being used in forbidden ways to pay for a private labor relations scheme clothed with the cover of "public education." For the past 4 or 5 years I have been trying to have this ille
gal and unconstitutional situation rectified. But I've gotten no where.

I am writing to you with regard to this run around. I have uncovered the refusal to undertake mandatory recov
ery of misused public and federal education funds on the part of the State Department of Education, the Attorney General and the Wayne County Prosecutor's Office.

Under MCLA 21.47, you have the power to remove public officials from office who refuse to comply with the obligation to recover misspent public funds and to prosecute the public officials involved. MCLA 21.47 says: "Refusal or neglect to comply with the requirements of this section on the part of the attorney general, or on the part of the prosecuting attor
ney of any county in the state shall be sufficient cause for his removal from office by the governor." I am requesting that your office begin an immediate investigation into this matter and take the necessary appro
priate action with regard to the mandatory recovery of misspent public and federal education funds and to penalize the public officials respon
sible.

This illegal activity was origi
nally brought to the attention of the Attorney General's office in Decem
ber, 1986, and to the attention of the Wayne County Prosecutor's Office on February 19, 1987. Subsequently, these public officials were presented with documentary evidence of the admitted illegal payment of over $20,000 of state aid and federal funds to a union via the bills show
ing the illegal payoff, as well as the admission of the payoff in a court suit filed by the Garden City Public Schools in Wayne County Cir
cuit Court 86-634695CZ. The Prosecu
tor's office advised that this situa
tion had to be dealt with by the Attorney General's office. And the Asst. Attorney General in charge of Education insisted that it was neces
sary to make a complaint to the State Department of Education to get recti
fication. He wrote: "If your claim is that a school district improperly expended public funds, you should make that complaint in writing to the Michigan Department of Education in Lansing, Michigan, providing as much documentation as possible. The Michi
gan Department of Education will inquire into your complaint, to the extent it deems appropriate, and share its review with this office." (Letter from Gerald Young dated April 17, 1987)

In 1986, a complaint was initiated with the State Department of Educa
tion by talking with the Consultant at the Wayne County Intermediate School District about the problem. A formal written complaint was submit
ted in 1988. Thus far there has been no report written detailing the alle
gations nor showing any investigation into them. In addition, there is now over 800 pages of public testimony at the Michigan Employment Relations Commission in Case No. 86 K-291 ad
mitting to the illegal use of public funds. Both the Prosecutor of Wayne County and the Attorney General of Michigan have been informed of this additional evidence. State Senator Daniel DeGrow has written that he is awaiting the report of the Attorney General's office to take action in the matter. In a letter dated March 1, 1990, he wrote, "As indicated in my letter to you dated February 16, 1990, I am awaiting the outcome of the investigation being conducted by the Attorney General's Office. When their report is complete, I will be so advised and the appropriate action will be taken at that time." (Letter from Daniel DeGrow dated March 1, 1990)

In addition to the documented illegal use of $20,000 of public money, the Prosecutor of Wayne County has acknowledged that approximately $200,000 of public state aid and federal funds have been used to sup
port a nonpublic school at the Ford Rouge Plant. Also, substantial public funds are being used to subsidize nonpublic schools at the Ford Motor Company via the UAW-Ford National Development and Training Center lo
cated on public property at Henry Ford Community College in Dearborn, Michigan.

Such activities have been acknowl
edged by the Prosecutor of Wayne County and the Michigan Attorney General to be an unconstitutional and hence a forbidden use of public funds. Yet no effort has been made by any of the public officials involved to retrieve the misspent monies, despite the fact that there are laws that require the recovery of any illegally spent public moneys. MCLA 14.431 requires that "The Attorney General or the prosecuting attorney shall institute civil action in any court of competent jurisdiction for the recovery of any moneys, disclosed by any examination to have been ille
gally expended or collected and not accounted for, also for the recovery of any public property disclosed to have been converted and misappropri
ated."

In addition, MCLA 14.143 requires that public officials involved in the misappropriation of public funds be prosecuted. "The Prosecutor (or At
torney General) prosecutes all public officials suspected of mismanagement of public funds."

Yet the officials involved in both the misappropriation of these funds and then in the coverup, have been encouraged in their illegal activi
ties by the inaction of the prosecu
tor and the attorney general.

Where there is a failure on the part of the Prosecutor or Attorney General's office to retrieve public funds or to prosecute the officials involved, the Governor has the obli
gation to remove these officials from office.

Consequently, I am requesting that pursuant to MCLA 14.431, 14.143 and 27.47 you investigate the situation and provide the necessary action so that the public money involved is recovered and the public officials responsible are prosecuted. This request is in continuation of the whistleblowing that is documented in my whistleblower lawsuit #87-712733-
CZ in Wayne County Circuit Court regarding this situation and of the labor department complaint filed with the Michigan Employment Relations Commission in 1986, case no's #86 K-291 and C86 294, CU86 K-68 and C87 D-94 through 99. Under the Whistle
blower Protection Act and under the PERA, an employee is supposed to be protected from retaliation while he or she makes an effort to have an illegal situation corrected by the appropriate public officials.

A letter dated May 1, 1990 that I received from Superintendent Bemis demonstrates that the Department of Education believes that it has no ability to deal with the misappropri
ation of public education funds. On researching the law, I found that the appropriate public entities to re
trieve misappropriated public funds are the attorney general's office and the prosecutor's office, and if they failed to comply with their obliga
tions, your office was obligated to take steps to remove them.

I have been sent on a run around by various public officials for over 4 years now. In the meantime, the public officials involved have been given to understand that they will be rewarded for the misappropriation of public education funds. Clearly there is a problem with the law if public moneys can be spent illegally with only encouragement by the public officials involved. The weak mecha
nism for dealing with such a situa
tion seems to leave the final author
ity with your office. Thus I am ask
ing for immediate action by your office in this matter. Please ac
knowledge receipt of this letter and inform me in writing of the procedure by which your office will undertake to require the necessary corrective action, namely, the recovery of the public funds and property, the prose
cution of the public officials re
sponsible for the misappropriation of the funds and for the coverup, and a public investigation into the situa
tion whereby this problem has devel
oped and has been continued despite repeated efforts to request rectifi
cation.

Ronda Hauben

COMMODORE COUNTY U.S.A.

Here is a small 'Utility' to use with your BASIC programs. It is quite simple to use, and will work with almost any BASIC program.

The program is written in machine language but has a BASIC loader. All you have to do is carefully type in the BASIC program shown below. Then save a copy to disk. (For those of you using a cassette this program will not work, because I designed the program to run from the cassette buffer at location 832 in memory.

The program uses a simple IRQ routine to interrupt your normal BASIC program and will change the two multicolors of the text. The feature can be toggled on and off by poking the following:

POKE 890, 77 (turns color 1 on to flash.)

POKE 891, 77 (turns color 2 on to flash.)

Poking these two locations with any other number causes the routine to stop flashing. The last color it flashed will still be displayed how
ever.

You might notice in line 160 of the program that there is a clover leaf symbol. To get this type {Commo
dore key and #3 key together}. The clover leaf symbol will not be dis
played however! In the multicolor, only the colors that are activated by the Commodore key will have any ef
fect on the texts color.

The program will deactivate itself with certain SYNTAX ERRORS however. The program can also be stopped com
pletely by hitting RUN STOP/RESTORE.

Hope you have fun with this little utility. Next time, I hope to have a utility to display a line of text at the top of the screen all the time. I call it: 'The Title'. But so far it's just a feeble attempt. So it's back to the Commodore County Labs with me! See you next time in Commodore County!

10 REM SHIMMERING TEXT

20 POKE 890, 77

30 POKE 891, 77

50 REM

100 T = 832

110 READ A: IF A = -01 THEN 150

120 CK = CK + A

130 POKE T, A

140 T = T + 1: GOTO 110

150 IF CK <> 6306 THEN PRINT "DATA ERROR! CHECK DATA STATEMENTS!": STOP

160 SYS 832: PRINT " SHIMMER ACTI
VATED!"

170 REM

180 REM DATA STATEMENTS

190 REM

200 DATA 169, 000, 141, 024, 212, 141, 032

210 DATA 208, 141, 033, 208, 141, 034, 208

220 DATA 173, 022, 208, 009, 016, 141, 022

230 DATA 208, 120, 169, 098, 141, 020, 003

240 DATA 169, 003, 141, 021, 003, 096, 173

250 DATA 122, 003, 201, 077, 208, 003, 206

260 DATA 034, 208, 173, 123, 003, 201, 077

270 DATA 208, 003, 206, 035, 208, 076, 049

280 DATA 234, -01

290 END

The Cheeze of Commodore County

J. Gritzmacher Jr.

C64 Music Digitizer

DIGITAL VISIONS

From the back labs of Commodore County has come an interesting de
vice, and software to boot. The infa
mous Dr J Backwash, and C. Whiplash of DIGITAL VISIONS, have whipped up an audio digitizer that is really easy to use.

The project took these inspiring young scientists a total of about two months to conjure up. The software to digitize music is included on the disk. Included is, (plans only) of how to build the 20 component de
vices, instructions on how to use it, and several software programs. The only additional requirements are a machine language MONITOR that can be easily found, and the components that are available through electronic suppliers.

THE PROGRAMS THAT ARE INCLUDED ON THE DISK ARE:

1 ] Digital sample 3 seconds

2 ] Digital sample 11 seconds

3 ] Reverse playback

4 ] Chatter player

5 ] Sight 'n Sound

6 ] Samplers 1-2

Check or money order only!

To get your packet of materials, send $9.99 to:

DIGITAL VISIONS

c/o Commodore County

J. Gritzmacher Jr

1542 N Sunny Crest Dr.

Stevens Point WI 54481

The price includes return postage, disk and all instructions, and pro
grams to use the digitizer.

For those that would just like to hear how the digitizer works, send a double sided, double density floppy 5.25 inch diskette, and a self ad
dressed stamped envelope to the above address. I have 6 disks full of sam
pled music to be copied. When sending your disk, indicate which titles you would like from the listing below. Only 8 per diskette please! (Only eight will fit!) SEND NO MONEY for these Please!

DISK ONE:

] Long cool woman

] Runnin' down a Dream

] For All we know

] China Girl

] Blame it on the rain

DISK TWO:

] Church Lady #1

] Star Trek III

] Headgerow

] Revers Headgerow

] 3 second Bangles

] Sweet Child 'o Mine

] Scarborough fair

] Even in the quietest moments

DISK THREE:

] Phantom of the Opera

] Sail away (Orinoco Flow)

] Sail away II

] Dragnet

DISK FOUR:

] Church Lady II

] Leave me Alone

] Flight of Valkyries

] You see me Crying

] Sound of Silence

] We're the Boingers!

] L'Amour est Bleu

] Its Inevitable

DISK FIVE:

] Dream on

] Schools Out

] Betty Davis eyes

] Stairway to Heaven (Rock 'n not to roll)

] Digital Drums

] Kung Fu Fighting

] Mr Roboto

DISK SIX:

] Argent (Hold your head up)

] Mr Fulton

] Cantina Band

] Kraftwork (Robots)

] Tribbles (Star Trek)

] Always Poke my Eye

] Vanna Pick me a letter

] Hazy shade of winter

DISK SEVEN:

] Never ending story

] Foreboding sound effect

] Ship

] Battle of evermore

] Flash sample of Led Zeppelin

] Misty Roses

Remember; SEND NO MONEY for the mu
sic! This is copyrighted material.

The Cheeze of Commodore County,

John Gritzmacher Jr.

(J . Backwash)

IBM Label Program

10 REM "LABEL",A

20 REM MENU

22 FLAG = 0 : REM FLAG FOR LOADING ARRAY

23 ALPA = 0: REM FLAG FOR ALPHABET
IZED LIST

24 PI = 0: REM FLAG FOR SEARCHING LIST

25 CLS: KEY OFF

26 RESTORE

27 LOCATE 8, 10

30 PRINT "WHICH DO YOU WANT? :"

35 LOCATE 9, 10

40 PRINT "(1) VIEW NAMES ON SCREEN": REM 200

45 LOCATE 10, 10

50 PRINT "(2) VIEW LABELS ON SCREEN": REM 300

55 LOCATE 11, 10

60 PRINT "(3) ALPHABETIZED LIST": REM 400

65 LOCATE 12, 10

70 PRINT "(4) SEARCH FOR ENTRY": REM 500

75 LOCATE 13, 10

80 PRINT"(5) USE PRINTER": REM 600

85 LOCATE 14, 10

90 PRINT "(6) ADD TO LIST": REM 700

91 LOCATE 15, 10

92 PRINT "(7) QUIT": REM 900

93 LOCATE 16, 10

94 INPUT "CHOOSE NUMBER "; Q

96 IF Q < 1 OR Q > 7 THEN LOCATE 16, 5: PRINT "OUT OF RANGE. CHOOSE # 1-7 ": LOCATE 17, 10: GOTO 94

99 ON Q GOSUB 200, 300, 400, 500, 600, 700, 900

100 GOTO 25: RETURN TO MENU

110 REM NAMES IN SUBROUTINE

112 REM TRAP OUT OF DATA ERROR

113 ON ERROR GOTO 145

115 N = 100: REM NUMBER OF NAMES IN LIST

117 IF N > 10 THEN DIM A$(N, 8)

118 CLS

130 LOCATE 15, 5: PRINT "NAMES ARE BEING LOADED INTO COMPUTER"

140 T = 0: FOR Y = 1 TO N: FOR X = 1 TO 8: READ A$(Y, X): NEXT X: T = T + 1: NEXT Y

142 GOTO 150

145 IF ERR = 4 THEN N = T ELSE PRINT ERR: END

146 PRINT "NUMBER OF NAMES YOU HAVE IN ADDRESS LIST IS NOW "; N

150 GOSUB 4000: FLAG = 1

180 RETURN

200 REM VIEW NAMES ON SCREEN SUBROU
TINE

210 CLS

212 IF FLAG = 1 THEN 220

215 GOSUB 110

217 CLS

220 PRINT TAB(15); "Address List"

222 PRINT

225 PRINT "FIRST"; TAB(12); "LAST"; TAB(22); "ADDR";

226 PRINT TAB(40); "CITY, STATE"; TAB(59); "ZIP"; TAB(66); "PHONE NO."

230 FOR L = 1 TO 80: PRINT "-";: NEXT

240 PRINT

260 FOR Y = 1 TO N: FOR X = 1 TO 7

262 IF X = 1 THEN W = 1

263 IF X = 2 THEN W = 12

264 IF X = 3 THEN W = 22

265 IF X = 4 THEN W = 40

266 IF X = 5 THEN PRINT ","; A$(Y, X);: COUNT = COUNT + 1: GOTO 290

267 IF X = 6 THEN W = 59

268 IF X = 7 THEN W = 66

270 PRINT TAB(W); A$(Y, X);

280 COUNT = COUNT + 1

290 NEXT X : PRINT: NEXT Y

292 PRINT: PRINT: PRINT: PRINT

294 LOCATE 18

298 GOSUB 4000

299 RETURN

300 REM LABELS SUBROUTINE

310 IF FLAG = 0 THEN CLS: GOSUB 110

315 FOR X = 1 TO N

320 CLS

321 LOCATE 15, 15

324 IF A$(X,8) = "1" THEN PRINT "MR. ";: GOTO 330

325 IF A$(X, 8) = "2" THEN PRINT "MR. & MRS. ";: GOTO 330

326 IF A$(X, 8) = "3" THEN PRINT "MR. & MRS. "A$(X, 1);" "A$(X, 2); " & FAMILY": GOTO 332

327 IF A$(X, 8) = "5" THEN PRINT "MR. & MRS. "; A$(X, 2); " & FAMILY": GOTO 332

328 IF A$(X, 8) = "6" THEN PRINT "MRS. ";: GOTO 330

329 IF A$(X, 8) = "7" THEN PRINT "MS. ";: GOTO 330

330 PRINT A$(X, 1); " "A$(X, 2)

332 LOCATE 16, 15: PRINT A$(X, 3)

334 LOCATE 17, 15: PRINT A$(X, 4); "," ; A$(X, 5); " "; A$(X, 6)

336 PRINT

339 GOSUB 4000

342 NEXT X

344 LOCATE 20, 20: PRINT "THOSE ARE ALL THE LABELS IN LIST"

350 GOSUB 4000

399 RETURN

400 REM ALPHABETIZED LIST

410 IF FLAG = 1 THEN 430

420 GOSUB 110

430 FOR T = 1 TO N -1

440 FOR I = N TO T + 1 STEP -1

445 IF A$(I, 2) > A$(I - 1, 2) THEN 460

450 FOR Q = 1 TO 8

451 T$(Q) = A$(I, Q): A$(I, Q) = A$(I - 1, Q): A$(I - 1, Q) = T$(Q)

452 NEXT Q

460 NEXT I

470 NEXT T

475 ALPHA = 1: REM FLAG FOR ALPHABET
IZING

476 IF PI = 1 THEN RETURN

480 CLS: PRINT "ALPHABETIZING IS DONE."

481 PRINT "DO YOU WANT TO SEE LIST ON SCREEN? "

482 INPUT "TYPE IN Y FOR YES AND N FOR NO "; W$

484 IF W$ = "Y" OR W$ = "y" THEN GOSUB 200

498 RETURN

500 REM SEARCH FOR ENTRY

505 REM THIS IS A BINARY SEARCH

510 PI = 1

525 IF ALPA = 1 THEN 530

527 GOSUB 400

528 CLS

530 INPUT "LAST NAME"; N$

540 L = 1

550 H = N : REM NUMBER OF ITEMS IN LIST

560 M = INT ((L + H) / 2): REM FIND MIDDLE OF HALF CURRENTLY BEING SEARCHED

570 IF N$ = A$(M, 2) THEN PRINT A$(M, 1); " "; A$(M, 2): PRINT A$(M, 3): PRINT A$(M, 4)" "A$(M, 5)" "A$(M, 6): PRINT A$(M, 7): GOTO 596

580 IF N$ > A$(M, 2) THEN L = M + 1: GOTO 595

585 H = M - 1: REM SEARCH IN LOWER HALF

595 IF L > H THEN PRINT N$; " IS NOT IN THE LIST " ELSE 560

596 GOSUB 4100

597 RETURN

600 REM USE PRINTER

605 CLS

607 LOCATE 10, 18

610 PRINT "DO YOU WANT TO PRINT :"

617 LOCATE 11, 18

620 PRINT "(L)ABELS ": REM 3000

627 LOCATE 12, 18

630 PRINT "(C)OMPLETE LIST": REM 3100

647 LOCATE 16, 18

650 INPUT "ENTER LETTER L, C "; P$

651 IF ASC (P$) > 96 AND ASC (P$) < 122 THEN LOCATE 17, 20: PRINT "USE CAPITAL LETTERS.": GOTO 647

652 FOR Q = 1 TO 5: IF P$ <> MID$ ("LC",Q,1) THEN NEXT: GOTO 647

655 PRINT "MAKE SURE PRINTER IS TURN
ED ON AND PAPER IS READY "

657 IF FLAG = 1 THEN 660

658 GOSUB 110

660 ON Q GOSUB 3000, 3100

663 CLS

665 PRINT "TURN OFF PRINTER"

670 GOSUB 4000

672 RETURN

700 REM ADD TO LIST SUBROUTINE

705 CLS

706 FLAG = 0

707 ALPHA = 0

708 PI = 0

710 PRINT "TYPE LINE NUMBER AND IN
FORMATION IN THE FOLLOWING FORM:"

715 LN = 1140: REM LAST DATA STATE
MENT

720 PRINT CHR$(34); LN + 5; "DATA FIRST, LAST, ADDR, TOWN, STATE, ZIP, TELE, CODE"; CHR$(34)

721 PRINT

722 PRINT "CODE 1 = MR.; 2 = MR. & MRS. FIRST LAST; ";

723 PRINT "3 = MR. & MRS. FIRST LAST & FAMILY; 4 = NO BEGINING; ";

724 PRINT "5 = MR. & MRS. LAST & FAMILY ; 6 = MRS.; 7 = MS."

740 PRINT: PRINT "TYPE LINE NUMBER "; LN+5;" THEN NUMBER BY FIVES"

745 PRINT

750 PRINT "WHEN FINISHED, TYPE: "; CHR$(34);"715 LN = {LAST DATA LINE NUMBER}: REM LAST DATA STATEMENT"; CHR$(34)

755 PRINT

760 PRINT "WHEN FINISHED TYPE:"

770 PRINT "SAVE"; CHR$(34); "LABEL.BAS"; CHR$(34); ",A"

775 PRINT: PRINT "THEN TYPE "; CHR$(34); "RUN"; CHR$(34); " TO CON
TINUE THE PROGRAM"

780 END

900 REM QUIT

920 CLS

930 LOCATE 15, 18: PRINT "GOODBYE FOR TODAY. "

940 GOSUB 4000

970 CLS

980 END

1100 REM DATA FIRST, LAST, ADDR, CITY, STATE, ZIP, TEL, CODE

1105 DATA William, Rohler, 998 Tele
graph, Dearborn, Mi, 48124, 313/222-4444, 1

1110 DATA NORMAN, THOMPSON, 3342 MICHIGAN, DETROIT, MI, 48225, 313/555-4444, 2

1115 DATA RONDA, HAUBEN, ,DEARBORN, MI, 48126, 313---------, "4"

1120 DATA JOHN, DOE, 1234 ANYSTREET, ANYTOWN, MI, 48000, 313/123-4567, 3

1125 DATA MARY, SMITH, 98765 OAK, DETROIT, MI, 48224, 313/432-7654, 6

1130 DATA JIM, BROWN, 4432 PINE AVE., DEARBORN, MI, 48124, 313/789-3210, 1

1135 DATA Judy, Jones, 9876 Maple St., Wayne, Mi., 48342, 313/888-4321, 7

1140 DATA Barbara, Sybex, 765 Scott, Dearborn Hgts., Mi, 48125, 313/890-4356, 6

3000 REM PRINT LABELS SUBR

3010 CLS

3015 PRINT "MAKE SURE PRINTER IS TURNED ON AND LABELS ARE READY TO PRINT"

3020 PRINT "PRESS ANY KEY TO GO TO NEXT LABEL"

3025 GOSUB 4000

3030 FOR X = 1 TO N

3035 CLS

3040 LPRINT

3042 PRINT "PRINTING LABEL FOR "; A$(X, 2)

3044 IF A$(X, 8) = "1" THEN LPRINT "MR. ";: GOTO 3050

3045 IF A$(X, 8) = "2" THEN LPRINT "MR. & MRS. ";: GOTO 3050

3046 IF A$(X, 8) = "3" THEN LPRINT "MR. & MRS. "; A$(X, 1); " "; A$(X, 2); " & FAMILY": GOTO 3060

3047 IF A$(X, 8) = "5" THEN LPRINT "MR. & MRS. "; A$(X, 2); " & FAMILY": GOTO 3060

3048 IF A$(X, 8) = "6" THEN LPRINT "MRS. ";: GOTO 3050

3049 IF A$(X, 8) = "7" THEN LPRINT "MS. ";: GOTO 3050

3050 LPRINT A$(X, 1); " "; A$(X, 2)

3060 LPRINT A$(X, 3)

3070 LPRINT A$(X, 4); ","; A$(X, 5); " "; A$(X, 6)

3075 LPRINT

3076 LPRINT

3080 GOSUB 4000

3081 NEXT X

3082 CLS

3083 PRINT "ALL LABELS IN LIST HAVE BEEN PRINTED"

3084 PRINT "PRESS ANY KEY TO GO BACK TO PRINT MENU"

3085 GOSUB 4000

3099 CLS: RETURN

3100 REM PRINTOUT ADDRESS LIST

3110 CLS

3120 LOCATE 15, 10: PRINT "MAKE SURE PRINTER IS TURNED ON"

3125 GOSUB 4000

3127 LPRINT: LPRINT

3130 LPRINT TAB(15); "Address List"

3140 LPRINT

3141 LPRINT "FIRST"; TAB(12); "LAST"; TAB(22); "ADDR";

3150 LPRINT TAB(40); "CITY, STATE"; TAB(59); "ZIP"; TAB(66); "PHONE NO."

3165 FOR L = 1 TO 80: LPRINT "-";: NEXT

3167 LPRINT

3168 FOR Y = 1 TO N: FOR X = 1 TO 7

3169 IF X = 1 THEN W = 1

3170 IF X = 2 THEN W = 12

3171 IF X = 3 THEN W = 22

3172 IF X = 4 THEN W = 40

3173 IF X = 5 THEN LPRINT ","; A$(Y, X);: COUNT = COUNT + 1: GOTO 3178

3174 IF X = 6 THEN W = 59

3175 IF X = 7 THEN W = 66

3176 LPRINT TAB(W); A$(Y, X);

3177 COUNT = COUNT + 1

3178 NEXT X : LPRINT: NEXT Y

3179 LPRINT: LPRINT: LPRINT

3180 GOSUB 4000

3181 RETURN

3200 CLS

3999 END

4000 REM CONTINUE SUBROUTINE

4010 LOCATE 23, 25: PRINT "PRESS ANY KEY TO CONTINUE"

4020 V$ = INKEY$

4030 IF V$ = "" THEN 4000

4040 RETURN

4100 REM YES OR NO SUBROUTINE

4110 INPUT "SEARCH ANOTHER? Y/N"; Q$: IF Q$ = "Y" OR Q$ = "y" THEN 530 ELSE RETURN

9999 END

COCO CORNER

CALORIE COUNTER

0 ' CALORIE

1 ' by Scott McMahan

2 ' on 7-21-88

3 '

4 ' *****************

5 '

6 ' For people who are not mathematic geniuses; yet want to watch the cho
lesterol and calories.

7 '

8 ' ******************

9 CLS

10 INPUT "What is your personal weight goal or ideal weight (in pounds) "; W

20 PRINT :INPUT "What is your age"; A

25 PRINT :INPUT "Are you (M)ale or (F)emale "; S$

30 IF A = > 45 THEN B = 1 ELSE B = 0

40 IF B = 0 AND S$ = "F" THEN W = W * 10

50 IF B = 0 AND S$ = "M" THEN W = W * 11

60 IF B = 1 AND S$ = "F" THEN W = W * 9

70 IF B = 1 AND S$ = "M" THEN W = W * 10

80 CR = (A - 25) * 10

90 W = W - CR

95 CLS

100 PRINT "Which of these applies to you? 1) SEDENTARY (OFFICE WORK)"

101 PRINT "2) MODERATELY SEDENTARY (OCCASIONAL EXERCISE) 3) MODERATELY ACTIVE (REGULAR EXERCISE) 4) VERY ACTIVE (INTENSIVE EXERCISE)"

105 INPUT "Choose one ( 1-4 ) "; PA

110 IF PA = 1 THEN W = W + (W * .3)

120 IF PA = 2 THEN W = W + (W * .4)

130 IF PA = 3 THEN W = W + (W * .5)

140 IF PA = 4 THEN W = W + (W * 1)

150 CLS

160 PRINT " THE RESULTS: "

170 PRINT" Your daily caloric re
quirements are "; W; " calories."

180 END

190 ' ********************

Bulletin Board Numbers

All BBS's are in the 313 area code

The Audio/Video Room ----884-4501

Genesis II --------------291-2520

Ballroom ----------------295-7279

Crimp/John Galt----------582-2528

Surfboard II ------------777-7873

M-Net -------------------994-6333190

NOTE: In the next issue we plan to devote a few articles to using a modem and the problems and advantages in using it. Also we will include some of the purposes for bulletin boards. The discussion from MNET that was promised in vol 3,no 1 will be in the next issue.

Also, we invite readers to submit questions, articles, etc. about their experiences on BBS's.